Public Class GestorVerNotas

    Public Shared Function LevantarEstudiantesXGrupo(ByVal pidGrupo As Integer) As List(Of Estudiante)
        Dim listaEstudiantes As New List(Of Estudiante)

        listaEstudiantes = MultiEstudiante.LevantarEstudiantesXGrupo(pidGrupo)

        Return listaEstudiantes
    End Function

    Public Sub ModificarEvaluacion(ByVal nota As Double, ByVal idEvaluacion As Integer)
        MultiPlan.ModificarEvaluacion(nota, idEvaluacion)
    End Sub

    Public Sub AgregarEvaluacion(ByVal pidRubro As Integer, ByVal idGrupo As Integer, ByVal pnombreEval As String)
        Dim listaEstudiates As List(Of Estudiante)
        listaEstudiates = GestorVerNotas.LevantarEstudiantesXGrupo(idGrupo)

        For Each estudiante As Estudiante In listaEstudiates
            MultiPlan.AgregarEvaluacion(pidRubro, estudiante.Carnet, pnombreEval)
        Next



    End Sub
End Class
